rework comp-new-frame

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 4e3f0c91e31786c51ca169b437261b12dff85492..17a8a7ef9f63328844131d9542e8db09b48bb3f4 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -351,10 +351,10 @@ If INPUT is a string this is the file path to be compiled."
 
 (defun comp-new-frame (size)
   "Return a clean frame of meta variables of size SIZE."
-  (let ((v (make-vector size nil)))
-    (cl-loop for i below size
-             do (aset v i (make-comp-mvar :slot i)))
-    v))
+  (cl-loop with v = (make-vector size nil)
+           for i below size
+           do (aset v i (make-comp-mvar :slot i))
+           finally (return v)))
 
 (cl-defun make-comp-mvar (&key slot (constant nil const-vld) type)
   (when const-vld